home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
p_pascal.zip
/
SAMPLES
/
MAX.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-04-22
|
277b
|
15 lines
(*$c+*)
program example(input,output);
var x,y : integer;
function max(z,w : integer) : integer;
begin
if z < w then max := w
else
max := z
end;
begin
write('Type: x= '); readln(x);
write('Type: y= '); readln(y);
writeln('max = ', max(x, y) : 3, '.')
end.